unit UIPattern;

interface

type
  IObservador = interface
    ['{D78784A9-2D49-4067-B872-E0E1486265C5}']
    procedure Atualizar(Sujeito: TObject);
  end;

  ISujeito = interface
    ['{9D031EFB-8B65-4A4A-A167-9505653EFAE4}']
    procedure Anexar(Observador: IObservador);
    procedure Desanexar(Observador: IObservador);
    procedure Notificar;
  end;
implementation

end.
 